Option Explicit
Sub B_Sample047()
    MsgBox Application.Path
End Sub